﻿Public Class FormAnyadirEquiposTorneo
    Private _resultadoBusqueda As List(Of String)
    Private _miCampeonato As Campeonato

    Private Sub FormAnyadirEquiposTorneo_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = FormEntrada
        Me._miCampeonato = New Campeonato()
        Me._resultadoBusqueda = New List(Of String)
        Me.checkedBoxListaEquipos.Items.Clear()
        Me._resultadoBusqueda = _miCampeonato.buscarEquiposParaTorneos()
    End Sub

    Private Sub btnAnyadirTorneo_Click(sender As Object, e As EventArgs)
        FormBuscarTorneo.Show()
        Me.Hide()
    End Sub

    Private Sub btnAceptar_Click(sender As Object, e As EventArgs) Handles btnAceptar.Click
        Dim i As Integer
        Dim idEquipo As Integer
        Dim equipo As String
        Dim equiposInsertados As Integer
        Dim insercionCorrecta As Boolean = False
        Dim idEquipoSeleccionado() As String = New String(2) {}
        For i = 0 To checkedBoxListaEquipos.Items.Count - 1
            If checkedBoxListaEquipos.GetItemChecked(i) Then
                'idEquipo = -1
                equipo = CStr(checkedBoxListaEquipos.Items(i))
                idEquipoSeleccionado = equipo.Split(CChar("-"))
                idEquipo = CInt(idEquipoSeleccionado(0))
                _miCampeonato.insertarEquiposAlTorneo(FormEntrada.CampeonatoActivo, idEquipo)
                equiposInsertados += 1
            End If
        Next
        If insercionCorrecta = True Then
            MsgBox("Se ha añadido " & equiposInsertados & " equipos al torneo") 'Revisar
            Me.Close()
        End If
    End Sub

    Private Sub btnCancelar_Click(sender As Object, e As EventArgs) Handles btnCancelar.Click
        Me.Close()
    End Sub
End Class